home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1996 June / Software of the Month Club 1996 June.iso / pc / dos / biz / easybase / pack1.prg / NETOUT / DEMOAPP / PROC16.DEF < prev    next >
Encoding:
Text File  |  1995-11-22  |  4.6 KB  |  199 lines
  1.  
  2.  
  3.                ╔═════════════ TIME SHEET CORRECTIONS ══════════╗
  4.                ║Enter Line No to correct                       ║
  5.                ╠═══════════════════════════════════════════════╣
  6.                ║Type of work                                   ║
  7.                ║                                               ║
  8.                ║Done by                                        ║
  9.                ║                                               ║
  10.                ║Time taken          Hrs    Mins                ║
  11.                ║                                               ║
  12.                ║Client                                         ║
  13.                ╚═══════════════════════════════════════════════╝
  14.  
  15.  
  16.  
  17.  
  18.  
  19.  
  20.  
  21.  
  22.  
  23.  
  24.  
  25.  
  26.  
  27.  
  28.  
  29.  
  30.                    Correct the entry and press F2 to file.
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  
  89. ╠The line No. can be found in List clients time sheet or daily entries           
  90. *14No                  YesN/AInteger       YesField      N/AYes                                !25type                YesN/AText          YesField      N/AYes                                !20Staff               YesN/AText          YesField      N/AYes                                
  91. ! 3Hrs                 If N/AInteger       YesField      N/AYes                                
  92. ) 2Mins                If N/AInteger       YesField      N/AYes                                  4file                YesN/AText          YesField      N/AYes                                 !30Customer            No N/AText          No Field      N/AYes                                 3oldfile             No N/AText          No Invisible  N/AYes                                 2Rate                No N/AFixed Point   No Invisible 2N/AYes                                         2Rpm                 No N/AFixed Point   No Invisible 6N/AYes                                
  93. 25oldtype             No N/AText          No Invisible  N/AYes                                       4Price               No N/AFixed Point   No Invisible 3N/AYes                                  20oldstaff            No N/AText          No Invisible  N/AYes                                 : 2oldhrs              No N/AInteger       No Invisible  N/AYes                                !30oldcustomer         No N/AText          No Invisible  N/AYes                                !: 2oldmins             No N/AInteger       No Invisible  N/AYes                                " 4oldprice            No N/AFixed Point   No Invisible 2N/AYes                                no[clearfields]
  94. if(lookup(work,type)= blank,oldtype,lookup(work,type))
  95. if(lookup(staff,name)= blank,oldstaff,lookup(staff,name))
  96. if(oldprice = blank,(lookup(records,hrs),hrs))
  97. if(oldprice = blank,lookup(records,mins),if(mins > 59,blank[beepMaximum entry in Mins is 59cursor mins],mins))
  98. if(charged = "no",blank,lookup(customers,file)= blank,oldfile,lookup(customers,file))
  99. if(charged = "no",blank,lookup(customers,name)= blank,oldcustomer,lookup(customers,name))
  100. lookup(records,file)
  101. lookup(staff,rate)
  102. rate/60
  103. lookup(records,type)
  104. round((hrs * 60 + mins) * rpm,2)
  105. lookup(records,staff)
  106. lookup(records,hrs)
  107. lookup(records,customer)
  108. lookup(records,mins)
  109. Lookup(records,price)
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128.  
  129.  
  130. mins = 0 or mins = blank
  131. hrs = 0 or hrs = blank
  132.  
  133.  
  134.  
  135.  
  136.  
  137.  
  138.  
  139.  
  140.  
  141.  
  142.  
  143.  
  144.  
  145.  
  146.  
  147.  
  148.  
  149.  
  150.  
  151.  
  152.  
  153.  
  154.  
  155.  
  156.  
  157.  
  158.  
  159.  
  160.  
  161. i !"$%&'(*+,-./0
  162. 
  163. 
  164. 
  165. 
  166. 
  167.          4321 "#$%&'(
  168. 
  169. 
  170. 
  171. 
  172. 
  173. 
  174. 
  175. 
  176. 
  177. 
  178.  
  179. !
  180. "
  181. #
  182. $
  183. &
  184. '
  185. (
  186. *
  187. +
  188. ,
  189. -
  190. .
  191. 0
  192. 1
  193. 3
  194. 4
  195. 6
  196. 7
  197. 8
  198. 9
  199. :ΦCorrections         YYNY@